home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 60
/
060.d81
/
robin hood
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
114 lines
5 poke53281,.:poke53280,12:printchr$(147)chr$(14)chr$(8)
8 gosub61000
10 poke214,9:print:printtab(11)"[159][210][207][194][201][206] [200][207][207][196]'[211] [199][207][204][196]"
11 printtab(5)"[154][193] [199]ame from [205]erry [207]lde [202]apan"
12 sa=14336:hi=int(sa/256):lo=sa-hi*256
13 sys57812"robin.font",8,0
14 poke780,0:poke781,lo:poke782,hi:sys65493:poke53272,31
15 poke147,0:sys57812"robin.mus",8,1:sys62631
16 poke147,0:sys57812"ss",8,1:sys62631
17 print" [201]nstructions [y/n]"
18 getk$:ifk$=""then18
19 ifk$="y"thengosub5000:print"[147]":gosub61000
20 poke214,13:print:print"[150] [204]oading [208]rogram..."
21 goto60000
5000 print"[147][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
5010 print"[221] [150] [210]obin [200]ood's [199]old [154][221]";
5020 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
5030 print"{$7d} [146][154]{$7d}";
5040 print"{$7d} Well, it seems that Robin Hood and [146][154]{$7d}";
5050 print"{$7d} his band of Merry Men are still at [146][154]{$7d}";
5060 print"[221] it. [217]our job as [210]obin is to go [146][154][221]";
5070 print"{$7d} around Sherwood Forest collecting [146][154]{$7d}";
5080 print"[221] all the bags of gold from the rich [146][154][221]";
5090 print"[221] to give to the poor. [146][154][221]";
5100 print"{$7d} [146][154]{$7d}";
5110 print"{$7d} Naturally, the Sheriff of Nottingham [146][154]{$7d}";
5120 print"{$7d} has put some restrictions on your [146][154]{$7d}";
5130 print"{$7d} movements and a little advanced [146][154]{$7d}";
5140 print"{$7d} planning will be necessary. [146][154]{$7d}";
5150 print"{$7d} [146][154]{$7d}";
5160 print"{$7d} There are seven challenges or [146][154]{$7d}";
5170 print"{$7d} puzzles for you to solve. Use the [146][154]{$7d}";
5180 print"{$7d} cursor keys to guide Robin (&) [146][154]{$7d}";
5190 print"[221] through the forest. [146][154][221]";
5200 print"{$7d} [146][154]{$7d}";
5210 print"{$7d} [146][154]{$7d}";
5220 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
5230 print"{$7d} [153]Press RETURN [154]{$7d}";
5240 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125:poke56295,14
5250 getk$:ifk$<>chr$(13)then5250
5260 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
5270 print"{$7d} [150] Robin Hood's Challenge [154]{$7d}";
5280 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
5290 print"{$7d} [146][154]{$7d}";
5300 print"{$7d} The Sheriff has put these [146][154]{$7d}";
5310 print"{$7d} limitations on your movement: [146][154]{$7d}";
5320 print"{$7d} [146][154]{$7d}";
5330 print"{$7d} 1] You may move only horizontally or [146][154]{$7d}";
5340 print"{$7d} vertically. [146][154]{$7d}";
5350 print"{$7d} [146][154]{$7d}";
5360 print"{$7d} 2] You may not retrace your last [146][154]{$7d}";
5370 print"{$7d} step. For example, if you have [146][154]{$7d}";
5380 print"{$7d} just moved from left to right, [146][154]{$7d}";
5390 print"{$7d} your next move may not be from [146][154]{$7d}";
5400 print"{$7d} right to left. [146][154]{$7d}";
5410 print"{$7d} [146][154]{$7d}";
5420 print"{$7d} 3] You may not move through the [146][154]{$7d}";
5430 print"{$7d} trees (#). [146][154]{$7d}";
5440 print"{$7d} [146][154]{$7d}";
5450 print"{$7d} [146][154]{$7d}";
5460 print"{$7d} [146][154]{$7d}";
5470 print"{$7d} [146][154]{$7d}";
5480 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
5490 print"{$7d} [153]Press RETURN [154]{$7d}";
5500 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125:poke56295,14
5510 getk$:ifk$<>chr$(13)then5510
5520 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
5530 print"{$7d}[150] Robin Hood's Challenge [154]{$7d}";
5540 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
5550 print"{$7d} [146][154]{$7d}";
5560 print"{$7d} 4] You may move through the [146][154]{$7d}";
5570 print"{$7d} clearings (%) but only from [146][154]{$7d}";
5580 print"{$7d} gold bag to gold bag ($). [146][154]{$7d}";
5590 print"{$7d} [146][154]{$7d}";
5600 print"[221] [200]owever, you may: [146][154][221]";
5610 print"{$7d} [146][154]{$7d}";
5620 print"{$7d} 5] Press 'H' for a quick review [146][154]{$7d}";
5630 print"{$7d} of these instructions. [146][154]{$7d}";
5640 print"{$7d} [146][154]{$7d}";
5650 print"[221] 6] [208]ress '[205]' to soothe your nerves [146][154][221]";
5660 print"[221] with a little [205]ozart. [146][154][221]";
5670 print"{$7d} [146][154]{$7d}";
5680 print"[221] 7] [208]ress '[211]' to see one possible [146][154][221]";
5690 print"[221] solution. [146][154][221]";
5700 print"{$7d} [146][154]{$7d}";
5710 print"{$7d} 8] Press 'Q' to return to the main [146][154]{$7d}";
5720 print"{$7d} menu. [146][154]{$7d}";
5730 print"{$7d} [146][154]{$7d}";
5740 print"[171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]";
5750 print"{$7d}[153] Press RETURN [154]{$7d}";
5760 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125:poke56295,14
5770 getk$:ifk$<>chr$(13)then5770
5780 return
5790 :
60000 open15,8,15,"r0:robin=robin":input#15,er:close15
60010 if er<>63 then print"":end
60020 a$="robin":q$=chr$(34)
60030 print"[144]load"q$a$q$",8"
60040 print"run":poke631,13:poke632,13:poke198,2:end
61000 poke214,15:print
61110 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
61120 print" [152] "
61130 print" "
61140 print" "
61150 print" [208]ublished on [204][207][193][196][211][212][193][210] 60 "
61160 print" [211]ubscriptions 1-800-831-2694 "
61170 print" [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204] "
61180 print" "
61190 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 au$="[210]obin [200]ood's [199]old":poke214,17:print
61205 printspc(20-len(au$)/2)"[152]"au$
61210 au$="[194]y [194]arbara [200]. [211]chulak ([195]) 1989":poke214,18:print
61220 printspc(20-len(au$)/2)"[152]"a